home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / geschaef / ds0093 / topfakt / zahlsche.for < prev    next >
Text File  |  1993-06-30  |  2KB  |  46 lines
  1. / FORMULAR ZAHLSCHEIN z.B. für Nachnahme
  2. !LINKER RAND 8
  3. ^10
  4. #EMPFAENGER
  5.  
  6. #EMPF_KTONR                          #EMPF_BLZ
  7.  
  8. #EMPF_BANK
  9.  
  10.                           ^B [ #Betrag:10:2 ] ^b ^10   // bei Skonto leer
  11.  
  12. Rg.Nr. #Atr_Nr:8:0  vom #RgDatum
  13.  
  14. Kd.Nr. #Kdnr:6:0
  15.  
  16. #Einzahler
  17.  
  18. !FORMULARENDE    // alles, was hiernach kommt, wird nicht mehr gedruckt...
  19.  
  20.  
  21. ***************************************************************************
  22. // Es folgt die Definition der Platzhalter, die Sie möglichst nicht
  23. // ändern oder löschen sollten!
  24. ***************************************************************************
  25. !PLATZHALTER
  26.   #EMPFAENGER,       fir->atr_zschfi        // Ihre Adresse als Empfänger
  27.   #EMPF_BANK,        fir->bank1             // Ihre Bankverbindung aus den Einstellungen
  28.   #EMPF_KTONR,       Charrem( '"ABCDEFGHIJKLMNOPQRSTUVWXYZ. ', Upper( fir->knr_1) )
  29.   #EMPF_BLZ,         Charrem( '"ABCDEFGHIJKLMNOPQRSTUVWXYZ. ', Upper( fir->blz_1) )
  30.  
  31.  
  32.   #AuftragSumme,     ako->at_wert           // Rechnungsendbetrag (ohne SkontoAbzug)
  33.  
  34.   #SkontoProzent,    ako->skonto            // Skonto in Prozent
  35.   #SkontoBetrag,     #Auftragsumme * (#SkontoProzent / 100)  // Skonto in Cash
  36.  
  37.   #Betrag,           IF( #SkontoProzent > 0, 0, #AuftragSumme)    // Ausgedruckter Rechnungsendbetrag
  38.  
  39.   #EINZAHLER,        Trim( ako->at_n1+ ' ')+ Trim( ako->at_n2)+ ', '+ Trim( ako->at_ort)
  40.  
  41.   #ATR_NR ,          ako->at_nr
  42.   #RGDATUM ,         ako->at_rgdat          // Datum der Rechnung
  43.   #KDNR ,            ako->at_kdnr
  44.  
  45. !ENDE PLATZHALTER
  46.